home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / dbase / dbpass10.zip / DEMODBPW.PRG < prev    next >
Text File  |  1992-03-11  |  3KB  |  116 lines
  1. **************************************************************************
  2. *   Name........: DEMODBPW.PRG                                           *
  3. *   Purpose.....: Demo of password routines                              *
  4. *   Date........: 11/03/92                                               *
  5. *   By..........: Frederico Terenas    E-mail: cs_a264@Kingston.ac.uk    *
  6. **************************************************************************
  7.  
  8. SET TALK OFF                                && 
  9. SET ECHO OFF                                && 
  10. SET STATUS OFF                              && Adjust environment
  11. SET SCOREBOARD OFF                          && 
  12. SET ESCAPE OFF                              &&
  13.  
  14. *Menu Definition
  15. DEFINE POPUP MAIN FROM 10,29 TO 20,50
  16. DEFINE BAR 1 OF MAIN PROMPT "" SKIP
  17. DEFINE BAR 2 OF MAIN PROMPT "    Top Secret!  "
  18. DEFINE BAR 4 OF MAIN PROMPT "  Change password"
  19. DEFINE BAR 6 OF MAIN PROMPT "       About"
  20. DEFINE BAR 8 OF MAIN PROMPT "       Exit"
  21. DEFINE BAR 9 OF MAIN PROMPT "" SKIP
  22. ON SELECTION POPUP MAIN DO MAIN_ROUT
  23.  
  24. row = 23
  25. DO WHILE row >= 0
  26.  
  27.    @ row,0 TO 24,79 CHR(176)
  28.    row = row - 1
  29.  
  30.    i = 10
  31.    DO WHILE i > 0                    && OHO!!!...slow down
  32.       i = i - 1
  33.    ENDDO  
  34.  
  35. ENDDO
  36.  
  37. SET CURSOR OFF
  38.  
  39. @ 1,1 clear TO 23,78 
  40. @ 3,29 SAY 'DBPASS v1.0 - THE DEMO'
  41. @ 6,36 SAY 'Welcome!'
  42. SAVE SCREEN TO MAINSCR
  43.  
  44.  
  45. DO WHILE .T.
  46.    ACTIVATE POPUP MAIN
  47. ENDDO
  48.  
  49. PROCEDURE MAIN_ROUT
  50.  
  51. DO CASE
  52.  
  53.    CASE BAR() = 2 
  54.       DO PASSCHEK              && check password
  55.       DO TOPSECRET      
  56.       RESTORE SCREEN FROM MAINSCR
  57.  
  58.    CASE BAR() = 4
  59.       DO PASSEDIT              && change password
  60.       RESTORE SCREEN FROM MAINSCR
  61.  
  62.    CASE BAR() = 6
  63.       DO ABOUT                
  64.       RESTORE SCREEN FROM MAINSCR
  65.       
  66.  
  67.    CASE BAR() = 8
  68.       DO END
  69.  
  70. ENDCASE
  71.  
  72. RETURN
  73.  
  74.  
  75. PROCEDURE TOPSECRET
  76.  
  77. CLEAR
  78. @ 5,25 TO 20,55 DOUBLE COLOR GR+/N
  79. @ 6,35 SAY 'Top Secret!' COLOR R/B
  80. @ 19,35 SAY 'Top Secret!' COLOR R/B
  81.  
  82. @ 8,30  SAY "Today's shopping list"
  83. @ 9,30  SAY "---------------------"
  84. @ 11,30 SAY " - Baked beans       "
  85. @ 12,30 SAY " - Chips             "
  86. @ 13,30 SAY " - Rice              "
  87. @ 14,30 SAY " - Tea & biscuits    "
  88. @ 15,30 SAY " - Meat              "
  89. @ 16,30 SAY " - Faster computer   "
  90. @ 17,30 SAY " - Larger hard disk  "
  91. A = INKEY(30)
  92.  
  93. RETURN        && from TOPSECRET
  94.  
  95.  
  96. PROCEDURE ABOUT
  97.  
  98. DEFINE WINDOW ABWIN FROM 6,20 TO 12,60 DOUBLE COLOR R/B
  99. ACTIVATE WINDOW ABWIN
  100. @ 1,13 SAY "DBPASS v1.0" COLOR GR+/B
  101. @ 3,9 SAY "by Frederico Terenas" COLOR GR+/B
  102. A = INKEY(30)
  103. DEACTIVATE WINDOW ABWIN
  104.  
  105. RETURN        && from ABOUT
  106.  
  107.  
  108. PROCEDURE END
  109.  
  110. CLEAR
  111. ? 'Leaving DBPASS v1.0 demo'
  112. SET CURSOR ON
  113. CANCEL
  114.  
  115. RETURN   && from END  ->
  116.